1 FORT=1TO2:SYS36867
2 FORX1=0TO319STEP06:A=USR(65),X1,199:NEXT
3 FORX1=36TO319STEP36:A=USR(65),X1,198:NEXT
4 FORX1=72TO319STEP72:A=USR(65),X1,197:NEXT
5 FORX1=199TO0STEP-06:A=USR(65),0,X1:NEXT
6 FORX1=169TO0STEP-30:A=USR(65),1,X1:NEXT
7 FORX1=139TO0STEP-60:A=USR(65),2,X1:NEXT
8 FORX1=139TO0STEP-60:A=USR(65),2,X1:NEXT:NEXT:A=USR(33),6:A=USR(33),7
9 GETA$:IFA$=""THEN9
10 LOAD"CMND",D0